home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Graphics / SViewNG / SuperViewLibrary / Install_SVLib < prev    next >
Encoding:
Text File  |  1997-09-28  |  20.6 KB  |  603 lines
  1. ; $VER: Install_SVLib V19.2 (21.9.97)
  2. ; © 1993-97 by Andreas R. Kleinert.
  3. ; This is the Installer Script for superview.library V19+
  4. ; Italian strings by Alessandro Basso (cralex@amiga.dei.unipd.it)
  5. ; Norwegian strings by Roger Hågensen (msi@sn.no)
  6. ; French strings by Julien Wilk (wilkj@esiee.fr)
  7.  
  8.  
  9. (set @app-name "SuperView-Library")
  10. (welcome "SuperView-Library Installation")
  11.  
  12. (message (cat "If you are running MCP and don't disable the\n"
  13.               "following patches, you may encounter big problems:\n\n"
  14.               "- new tooltypes\n"
  15.               "- reqtols patch\n"
  16.               "- onereq\n"
  17.               "- library search\n"
  18.               "- SetRGB32\n"
  19.               "\nYou may wish to ask the authors of MCP to fix this\n"
  20.               "- if not already done. So, be warned !"))
  21.  
  22. (set #cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0)   (set #cpu     "68060")  )
  23. (set #ppc_cpu "none")       (if (> (exists ("sys:libs/ppc.library")) 0)     (set #ppc_cpu "PPC60x") )
  24.                             (if (> (exists ("sys:libs/PowerPC.library")) 0) (set #ppc_cpu "PPC60x") )
  25.  
  26. ; *** english is default language
  27.  
  28.     (set #Msg_Yes "Yes")
  29.     (set #Msg_No  "No")
  30.     (set #Msg_BasicConfig "What's your basic configuration ?")
  31.     (set #Gfx0  "Not specified (do not change)")
  32.     (set #Gfx1  "Amiga OCS/ECS, no GfxCard")
  33.     (set #Gfx2  "Amiga AGA, no GfxCard")
  34.     (set #Gfx3  "CD-32 AGA, no GfxCard")
  35.     (set #Gfx4  "Card with CyberGraphX emulation")
  36.     (set #Gfx5  "Card with Picasso96 emulation")
  37.     (set #Gfx6  "Card with EGS emulation")
  38.     (set #Gfx7  "Picasso II(+)/IV")
  39.     (set #Gfx8  "Retina Z2/BLT Z3")
  40.     (set #Gfx9  "Merlin II")
  41.     (set #Gfx10 "OpalVision")
  42.     (set #Gfx11 "Amiga OCS/ECS/AGA, other GfxCard")
  43.     (set #Msg_CopyEnvConfig "Copying appropriate configuration to ENV:")
  44.     (set #Msg_LibPath "Library Path")
  45.     (set #Msg_InstallingLibs "Copying Libraries...")
  46.     (set #Msg_Ghostscript (cat "\nDo you already have Ghostscript installed ?\n\n"
  47.                                "(When answering with <Yes>, you have to supply\n"
  48.                                " the program's path and name here.)\n"
  49.                          )
  50.     )
  51.     (set #Msg_GSPath "Path and name of Ghostscript executable")
  52.     (set #Msg_MetaView    (cat "\nDo you already have MetaView installed ?\n\n"
  53.                                "(When answering with <Yes>, you have to supply\n"
  54.                                " the program's path and name here.)\n"
  55.                          )
  56.     )
  57.     (set #Msg_MVPath "Path and name of MetaView executable")
  58.     (set #Msg_CatPath "Catalog Path")
  59.     (set #Msg_InstallingCats "Copying catalog files...")
  60.     (set #Msg_VMEM "Now modifying your S:User-Startup for VMem-Support...")
  61.     (set #Msg_VMemPath "Virtual Memory Path")
  62.     (set #Msg_CopyPrefs "Copy SVPrefs to SYS:Prefs ?")
  63.     (set #Msg_PackerSupport "Install PackerSupport right now ?")
  64.     (set #Msg_SQOperators "Install SQ-Operators right now ?")
  65.     (set #Msg_Ready "SuperView-Library has been installed now.\nIf this was an Update, you should\nreboot your computer now.")
  66.  
  67.  
  68. (if (= @language "deutsch")
  69.   (
  70.     (set #Msg_Yes "Ja")
  71.     (set #Msg_No  "Nein")
  72.     (set #Msg_BasicConfig "Was ist Ihre Grundkonfiguration ?")
  73.     (set #Gfx0  "Keine Angabe (nichts ändern)")
  74.     (set #Gfx1  "Amiga OCS/ECS, keine Grafikkarte")
  75.     (set #Gfx2  "Amiga AGA, keine Grafikkarte")
  76.     (set #Gfx3  "CD-32 AGA, keine Grafikkarte")
  77.     (set #Gfx4  "Karte mit CyberGraphX-Emulation")
  78.     (set #Gfx5  "Karte mit Picasso96-Emulation")
  79.     (set #Gfx6  "Karte mit EGS-Emulation")
  80.     (set #Gfx7  "Picasso II(+)/IV")
  81.     (set #Gfx8  "Retina Z2/BLT Z3")
  82.     (set #Gfx9  "Merlin II")
  83.     (set #Gfx10 "OpalVision")
  84.     (set #Gfx11 "Amiga OCS/ECS/AGA, andere Grafikkarte")
  85.     (set #Msg_CopyEnvConfig "Kopiere notwendige Konfiguration nach ENV:")
  86.     (set #Msg_LibPath "Library-Pfad")
  87.     (set #Msg_InstallingLibs "Kopiere Libraries...")
  88.     (set #Msg_Ghostscript (cat "\nHaben Sie bereits Ghostscript installiert ?\n\n"
  89.                                "(Falls <Ja>, müssen Sie hier nun den\n"
  90.                                " Programmpfad und -namen angeben.)\n"
  91.                          )
  92.     )
  93.     (set #Msg_GSPath "Pfad und Name des Ghostscript-Programmes")
  94.     (set #Msg_MetaView    (cat "\nHaben Sie bereits MetaView installiert ?\n\n"
  95.                                "(Falls <Ja>, müssen Sie hier nun den\n"
  96.                                " Programmpfad und -namen angeben.)\n"
  97.                          )
  98.     )
  99.     (set #Msg_MVPath "Pfad und Name des MetaView-Programmes")
  100.     (set #Msg_CatPath "Katalogpfad")
  101.     (set #Msg_InstallingCats "Kopiere Katalogdateien...")
  102.     (set #Msg_VMEM "Ändere jetzt S:User-Startup für VMem-Unterstützung...")
  103.     (set #Msg_VMemPath "Pfad für virtuellen Speicher")
  104.     (set #Msg_CopyPrefs "SVPrefs nach SYS:Prefs kopieren ?")
  105.     (set #Msg_PackerSupport "Packer-Unterstützung jetzt gleich installieren ?")
  106.     (set #Msg_SQOperators "SQ-Operators jetzt gleich installieren ?")
  107.     (set #Msg_Ready "SuperView-Library wurde installiert.\nFalls dies ein Update war, sollten Sie ggf.\nIhren Rechner nun neu starten.")
  108.   )
  109. )
  110.  
  111. (if (= @language "italiano")
  112.   (
  113.     (set #Msg_Yes "Si")
  114.     (set #Msg_No  "No")
  115.     (set #Msg_BasicConfig "Qual è la tua configurazione base ?")
  116.     (set #Gfx0  "Non specificata (da non cambiare)")
  117.     (set #Gfx1  "Amiga OCS/ECS, senza SchedaGfx")
  118.     (set #Gfx2  "Amiga AGA, senza SchedaGfx")
  119.     (set #Gfx3  "CD-32 AGA, senza SchedaGfx")
  120.     (set #Gfx4  "Scheda con Emulazione-CyberGraphX")
  121.     (set #Gfx5  "Scheda con Emulazione-Picasso96")
  122.     (set #Gfx6  "Scheda con Emulazione-EGS")
  123.     (set #Gfx7  "Picasso II(+)/IV")
  124.     (set #Gfx8  "Retina Z2/BLT Z3")
  125.     (set #Gfx9  "Merlin II")
  126.     (set #Gfx10 "OpalVision")
  127.     (set #Gfx11 "Amiga OCS/ECS/AGA, altra SchedaGfx")
  128.     (set #Msg_CopyEnvConfig "Sto copiando configurazione appropriata in ENV:")
  129.     (set #Msg_LibPath "Percorso Libreria")
  130.     (set #Msg_InstallingLibs "Sto copiando Librerie...")
  131.     (set #Msg_Ghostscript (cat "\nHai già installato il Ghostscript ?\n\n"
  132.                                "(Se rispondi con <Si>, dovrai fornire\n"
  133.                                "nome e percorso del programma qui.)\n"
  134.                          )
  135.     )
  136.     (set #Msg_GSPath "Percorso e nome dell'eseguibile Ghostscript")
  137.     (set #Msg_MetaView    (cat "\nHai già installato il MetaView ?\n\n"
  138.                                "(Se rispondi con <Si>, dovrai fornire\n"
  139.                                "nome e percorso del programma qui.)\n"
  140.                          )
  141.     )
  142.     (set #Msg_MVPath "Percorso e nome dell'eseguibile MetaView")
  143.     (set #Msg_CatPath "Percorso Catalogo")
  144.     (set #Msg_InstallingCats "Sto copiando files del catalogo...")
  145.     (set #Msg_VMEM "Ora modifico la tua S:User-Startup per supporto-VMem...")
  146.     (set #Msg_VMemPath "Percorso Memoria Virtuale")
  147.     (set #Msg_CopyPrefs "Copio SVPrefs in SYS:Prefs ?")
  148.     (set #Msg_PackerSupport "Installo Supporto-Packer adesso ?")
  149.     (set #Msg_SQOperators "Installo Operatori-SQ adesso ?")
  150.     (set #Msg_Ready "Libreria-SuperView è stata ora installata.\nSe questo fosse un Aggiornamento, dovresti\neseguire un reboot del tuo computer ora.")
  151.   )
  152. )
  153.  
  154. (if (= @language "norsk")
  155.   (
  156.     (set #Msg_Yes "Ja")
  157.     (set #Msg_No  "Nei")
  158.     (set #Msg_BasicConfig "Hva er din standard konfigurasjon ?")
  159.     (set #Gfx0  "Ikke spesifisert (ikke forandre)")
  160.     (set #Gfx1  "Amiga OCS/ECS, ingen GfxKort")
  161.     (set #Gfx2  "Amiga AGA, ingen GfxKort")
  162.     (set #Gfx3  "CD-32 AGA, ingen GfxKort")
  163.     (set #Gfx4  "Kort med CyberGraphX emulasjon")
  164.     (set #Gfx5  "Kort med Picasso96 emulasjon")
  165.     (set #Gfx6  "Kort med EGS emulasjon")
  166.     (set #Gfx7  "Picasso II(+)/IV")
  167.     (set #Gfx8  "Retina Z2/BLT Z3")
  168.     (set #Gfx9  "Merlin II")
  169.     (set #Gfx10 "OpalVision")
  170.     (set #Gfx11 "Amiga OCS/ECS/AGA, annet GfxKort")
  171.     (set #Msg_CopyEnvConfig "Kopierer passende konfigurasjon til ENV:")
  172.     (set #Msg_LibPath "Bibliotek Sti (Library)")
  173.     (set #Msg_InstallingLibs "Kopierer Bibliotek...")
  174.     (set #Msg_Ghostscript (cat "\nHar du allerede Ghostscript installert ?\n\n"
  175.                                "(Når du svarer med <Ja>, må du gi stien til\n"
  176.                                " programmet og programmets navn her.)\n"
  177.                          )
  178.     )
  179.     (set #Msg_GSPath "Sti og navn til Ghostscript program")
  180.     (set #Msg_MetaView    (cat "\nHar du allerede MetaView installert ?\n\n"
  181.                                "(Når du svarer med <Ja>, må du gi stien til\n"
  182.                                " programmet og programmets navn her.)\n"
  183.                          )
  184.     )
  185.     (set #Msg_MVPath "Stio og nanv til MetaView program")
  186.     (set #Msg_CatPath "Katalog Sti")
  187.     (set #Msg_InstallingCats "Kopierer katalog filer...")
  188.     (set #Msg_VMEM "Modifiserer nå S:User-Startup for VMem-Støtte...")
  189.     (set #Msg_VMemPath "Virtuellt Minne Sti")
  190.     (set #Msg_CopyPrefs "Kopier SVPrefs til SYS:Prefs ?")
  191.     (set #Msg_PackerSupport "Installer PackerStøtte nå?")
  192.     (set #Msg_SQOperators "Installer SQ-Operatører (Operators) nå ?")
  193.     (set #Msg_Ready "SuperView-Library er nå installert.\nHvis dette var en Oppdatering, bør du\nstarte maskinen på nytt.")
  194.   )
  195. )
  196.  
  197. (if (= @language "français")
  198.   (
  199.     (set #Msg_Yes "Oui")
  200.     (set #Msg_No  "Non")
  201.     (set #Msg_BasicConfig "Quelle est votre configuration de base ?")
  202.     (set #Gfx0  "Non listée (ne rien changer)")
  203.     (set #Gfx1  "Amiga OCS/ECS, pas de carte graphique")
  204.     (set #Gfx2  "Amiga AGA, pas de carte graphique")
  205.     (set #Gfx3  "CD-32 AGA, pas de carte graphique")
  206.     (set #Gfx4  "Carte avec émulation CyberGraphX")
  207.     (set #Gfx5  "Carte avec émulation Picasso96")
  208.     (set #Gfx6  "Carte avec émulation EGS")
  209.     (set #Gfx7  "Picasso II(+)/IV")
  210.     (set #Gfx8  "Retina Z2/BLT Z3")
  211.     (set #Gfx9  "Merlin II")
  212.     (set #Gfx10 "OpalVision")
  213.     (set #Gfx11 "Amiga OCS/ECS/AGA, autre carte graphique")
  214.     (set #Msg_CopyEnvConfig "Copie de la configuration appropriée dans ENV:")
  215.     (set #Msg_LibPath "Chemin des librairies")
  216.     (set #Msg_InstallingLibs "Copie des librairies...")
  217.     (set #Msg_Ghostscript (cat "\nAvez-vous déjà installé Ghostscript ?\n\n"
  218.                                "(Si vous répondez par <Oui>, il vous faudra fournir\n"
  219.                                " le chemin du programme et son nom.)\n"
  220.                          )
  221.     )
  222.     (set #Msg_GSPath "Chemin et nom de l'exécutable Ghostscript")
  223.     (set #Msg_MetaView    (cat "\nAvez-vous déjà installé MetaView ?\n\n"
  224.                                "(Si vous répondez par <Oui>, il vous faudra fournir\n"
  225.                                " le chemin du programme et son nom.)\n"
  226.                          )
  227.     )
  228.     (set #Msg_MVPath "Chemin et nom de l'exécutable MetaView")
  229.     (set #Msg_CatPath "Chemin des catalogues")
  230.     (set #Msg_InstallingCats "Copie des fichiers catalogues...")
  231.     (set #Msg_VMEM "Modification de votre S:User-Startup au niveau de VMem-Support...")
  232.     (set #Msg_VMemPath "Chemin de la mémoire virtuelle")
  233.     (set #Msg_CopyPrefs "Copier SVPrefs dans SYS:Prefs ?")
  234.     (set #Msg_PackerSupport "Installer le PackerSupport maintenant ?")
  235.     (set #Msg_SQOperators "Installer les SQ-Operators maintenant ?")
  236.     (set #Msg_Ready "SuperView-Library a été installé avec succès.\nS'il s'agissait d'une mise à jour, vous devriez\nredémarrer votre ordinateur maintenant.")
  237.   )
  238. )
  239.  
  240. ; **************************************************************************
  241. ; Create/Update basic configuration
  242.  
  243. (makedir "ENV:SuperView-Library")
  244. (makedir "ENVARC:SuperView-Library")
  245.  
  246. (set #selectsvdriver (askchoice
  247.                       (prompt #Msg_BasicConfig)
  248.                       (help @askchoice-help)
  249.                       (choices #Gfx0 #Gfx1 #Gfx2 #Gfx3 #Gfx4 #Gfx5 #Gfx6 #Gfx7 #Gfx8 #Gfx9 #Gfx10 #Gfx11)
  250.                       (default 1)
  251.                     )
  252. )
  253.  
  254. (if (= #selectsvdriver 1)  (set #env_source "docs/SampleConfigs/env_ECS")           )
  255. (if (= #selectsvdriver 2)  (set #env_source "docs/SampleConfigs/env_AGA")           )
  256. (if (= #selectsvdriver 3)  (set #env_source "docs/SampleConfigs/env_AGA_CD32")      )
  257. (if (= #selectsvdriver 4)  (set #env_source "docs/SampleConfigs/env_CyberGraphics") )
  258. (if (= #selectsvdriver 5)  (set #env_source "docs/SampleConfigs/env_Picasso96")     )
  259. (if (= #selectsvdriver 6)  (set #env_source "docs/SampleConfigs/env_EGS7")          )
  260. (if (= #selectsvdriver 7)  (set #env_source "docs/SampleConfigs/env_PicassoII")     )
  261. (if (= #selectsvdriver 8)  (set #env_source "docs/SampleConfigs/env_Retina")        )
  262. (if (= #selectsvdriver 9)  (set #env_source "docs/SampleConfigs/env_Merlin")        )
  263. (if (= #selectsvdriver 10) (set #env_source "docs/SampleConfigs/env_OpalVision")    )
  264. (if (= #selectsvdriver 11) (set #env_source "docs/SampleConfigs/env_GfxCards")      )
  265.  
  266. (if (> #selectsvdriver 0)
  267.   (
  268.     (copyfiles
  269.       (prompt #Msg_CopyEnvConfig)
  270.       (help @copyfiles-help)
  271.       (source #env_source)
  272.       (dest "ENV:")
  273.       (all)
  274.     )
  275.     (copyfiles
  276.       (prompt #Msg_CopyEnvConfig)
  277.       (help @copyfiles-help)
  278.       (source #env_source)
  279.       (dest "ENVARC:")
  280.       (all)
  281.     )
  282.   )
  283. )
  284.  
  285. (copyfiles
  286.   (prompt #Msg_CopyEnvConfig)
  287.   (help @copyfiles-help)
  288.   (source "env")
  289.   (dest "ENVARC:")
  290.   (all)
  291. )
  292.  
  293. ; **************************************************************************
  294. ; Install main libraries
  295.  
  296. (if (exists "ENVARC:SuperView-Library/SVLIB_WHERE") (set #svlibdir (getenv "SuperView-Library/SVLIB_WHERE"))
  297.  
  298.  (set #svlibdir "LIBS:")
  299. )
  300.  
  301. (if (= (exists (#svlibdir)) 0) (set #svlibdir "LIBS:") )
  302.  
  303. (set #svlibdir
  304.               (askdir
  305.                       (prompt #Msg_LibPath)
  306.                       (help @askdir-help)
  307.                       (newpath)
  308.                       (default #svlibdir)
  309.                )
  310. )
  311.  
  312. (delete "ENVARC:SuperView-Library/SVLIB_WHERE")
  313. (delete "ENV:SuperView-Library/SVLIB_WHERE")
  314. (textfile (dest "ENVARC:SuperView-Library/SVLIB_WHERE") (append #svlibdir) (safe))
  315. (textfile (dest "ENV:SuperView-Library/SVLIB_WHERE") (append #svlibdir) (safe))
  316.  
  317. (copylib
  318.   (prompt #Msg_InstallingLibs)
  319.   (help @copylib-help)
  320.   (source "libs/superview.library")
  321.   (dest #svlibdir)
  322. )
  323.  
  324. (set @default-dest #svlibdir)
  325.  
  326. (copylib
  327.   (prompt #Msg_InstallingLibs)
  328.   (help @copylib-help)
  329.   (source "libs/superviewsupport.library")
  330.   (dest #svlibdir)
  331. )
  332.  
  333. ; **************************************************************************
  334. ; Ask for Ghostscript
  335.  
  336. (set #gsquest (askchoice
  337.                 (prompt #Msg_Ghostscript)
  338.                 (help @askchoice-help)
  339.                 (choices #Msg_Yes #Msg_No)
  340.                 (default 1)
  341.               )
  342. )
  343.  
  344. (if (= #gsquest 0)
  345.   (
  346.     (set #gspath (askfile
  347.                   (prompt #Msg_GSPath)
  348.                   (help @askfile-help)
  349.                   (default "gs000")
  350.                 )
  351.     )
  352.     (set #gspathopt (cat "GS_PATH=" #gspath "\n"))
  353.     (textfile
  354.       (dest "ENV:SuperView-Library/Ghostscript.controlpad")
  355.       (append #gspathopt)
  356.     )
  357.     (copyfiles
  358.       (source "ENV:SuperView-Library/Ghostscript.controlpad")
  359.       (dest "ENVARC:SuperView-Library")
  360.     )
  361.   )
  362. )
  363.  
  364. ; **************************************************************************
  365. ; Ask for MetaView
  366.  
  367. (set #mvquest (askchoice
  368.                 (prompt #Msg_MetaView)
  369.                 (help @askchoice-help)
  370.                 (choices #Msg_Yes #Msg_No)
  371.                 (default 1)
  372.               )
  373. )
  374.  
  375. (if (= #mvquest 0)
  376.   (
  377.     (set #mvpath (askfile
  378.                   (prompt #Msg_MVPath)
  379.                   (help @askfile-help)
  380.                   (default "MetaView")
  381.                 )
  382.     )
  383.     (set #mvpathopt (cat "METAVIEW_PATH=" #mvpath "\n"))
  384.     (textfile
  385.       (dest "ENV:SuperView-Library/MetaView.controlpad")
  386.       (append #mvpathopt)
  387.     )
  388.     (copyfiles
  389.       (source "ENV:SuperView-Library/MetaView.controlpad")
  390.       (dest "ENVARC:SuperView-Library")
  391.     )
  392.   )
  393. )
  394.  
  395. ; **************************************************************************
  396. ; Install catalogs
  397.  
  398. (makedir "SYS:locale")
  399. (makedir "SYS:locale/catalogs")
  400.  
  401. (copyfiles
  402.   (prompt #Msg_InstallingCats)
  403.   (help @copyfiles-help)
  404.   (source "locale/catalogs")
  405.   (set #svcatdir
  406.               (askdir
  407.                      (prompt #Msg_CatPath)
  408.                      (help @askdir-help)
  409.                      (newpath)
  410.                      (default "SYS:locale/Catalogs")
  411.               )
  412.   )
  413.   (dest #svcatdir)
  414.   (all)
  415. )
  416.  
  417. ; **************************************************************************
  418. ; Install library modules
  419.  
  420. (set #svobjectdir   (tackon #svlibdir "svobjects"))
  421. (set #svdriverdir   (tackon #svlibdir "svdrivers"))
  422. (set #svoperatordir (tackon #svlibdir "svoperators"))
  423. (set #svstoredir    (tackon #svlibdir "svstorage"))
  424.  
  425. (makedir #svobjectdir)
  426. (makedir #svdriverdir)
  427. (makedir #svoperatordir)
  428. (makedir #svstoredir)
  429.  
  430. (copyfiles
  431.   (prompt #Msg_InstallingLibs)
  432.   (help @copyfiles-help)
  433.   (source "libs/svobjects")
  434.   (dest (tackon #svlibdir "svobjects"))
  435.   (pattern "#?")
  436.   (confirm)
  437.   (files)
  438. )
  439.  
  440. (if (exists(tackon #svobjectdir "SVO.svobject"))
  441.  (rename (tackon #svobjectdir "SVO.svobject") (tackon #svstoredir "SVO.svobject") (safe))
  442. )
  443.  
  444. (if (exists(tackon #svobjectdir "CyberDataType.svobject"))
  445.  (rename (tackon #svobjectdir "CyberDataType.svobject") (tackon #svstoredir "CyberDataType.svobject") (safe))
  446. )
  447.  
  448. (copyfiles
  449.   (prompt #Msg_InstallingLibs)
  450.   (help @copyfiles-help)
  451.   (source "libs/svdrivers")
  452.   (dest (tackon #svlibdir "svdrivers"))
  453.   (pattern "#?")
  454.   (confirm)
  455.   (files)
  456. )
  457.  
  458. (if (NOT (= #selectsvdriver 5))
  459.  (rename (tackon #svdriverdir "Picasso96.svdriver") (tackon #svstoredir "Picasso96.svdriver") (safe))
  460. )
  461.  
  462. (if (NOT (= #selectsvdriver 6))
  463.  (rename (tackon #svdriverdir "EGS7.svdriver") (tackon #svstoredir "EGS7.svdriver") (safe))
  464. )
  465.  
  466. (if (NOT (= #selectsvdriver 7))
  467.  (rename (tackon #svdriverdir "PicassoII.svdriver") (tackon #svstoredir "PicassoII.svdriver") (safe))
  468. )
  469.  
  470. (if (NOT (= #selectsvdriver 8))
  471.  (rename (tackon #svdriverdir "Retina.svdriver") (tackon #svstoredir "Retina.svdriver") (safe))
  472. )
  473.  
  474. (if (NOT (= #selectsvdriver 9))
  475.  (rename (tackon #svdriverdir "MERLIN.svdriver") (tackon #svstoredir "MERLIN.svdriver") (safe))
  476. )
  477.  
  478. (if (NOT (= #selectsvdriver 10))
  479.  (rename (tackon #svdriverdir "OPAL.svdriver") (tackon #svstoredir "OPAL.svdriver") (safe))
  480. )
  481.  
  482. (copyfiles
  483.   (prompt #Msg_InstallingLibs)
  484.   (help @copyfiles-help)
  485.   (source "libs/svoperators")
  486.   (dest (tackon #svlibdir "svoperators"))
  487.   (pattern "#?")
  488.   (confirm)
  489.   (files)
  490. )
  491.  
  492. (if (>= #cpu 68020)
  493.   (
  494.     (copyfiles
  495.       (prompt #Msg_InstallingLibs)
  496.       (help @copyfiles-help)
  497.       (source "libs/68030")
  498.       (dest #svlibdir)
  499.       (confirm)
  500.       (all)
  501.     )
  502.   )
  503. )
  504.  
  505. ; **************************************************************************
  506. ; Modify User-Startup
  507.  
  508. (if (exists "ENVARC:SuperView-Library/SVMEM_WHERE") (set #vmemdir (getenv "SuperView-Library/SVMEM_WHERE"))
  509.  
  510.  (set #vmemdir "T:")
  511. )
  512.  
  513. (if (= (exists (#vmemdir)) 0) (set #vmemdir "T:") )
  514.  
  515. (set #vmemdir
  516.               (askdir
  517.                 (prompt #Msg_VMemPath)
  518.                 (help @askdir-help)
  519.                 (newpath)
  520.                 (default #vmemdir)
  521.               )
  522. )
  523.  
  524. (delete "ENVARC:SuperView-Library/SVMEM_WHERE")
  525. (delete "ENV:SuperView-Library/SVMEM_WHERE")
  526. (textfile (dest "ENVARC:SuperView-Library/SVMEM_WHERE") (append #vmemdir) (safe))
  527. (textfile (dest "ENV:SuperView-Library/SVMEM_WHERE") (append #vmemdir) (safe))
  528.  
  529. (startup "SuperView-Library"
  530.   (prompt #Msg_VMEM)
  531.   (help @startup-help)
  532.   (command "Assign VMEM: "#vmemdir"\nSYS:Prefs/SVPrefs >NIL: <NIL: INIT\n")
  533. )
  534.  
  535. ; **************************************************************************
  536. ; Install SVPrefs
  537.  
  538. (copyfiles
  539.   (prompt #Msg_CopyPrefs)
  540.   (help @copyfiles-help)
  541.   (source "Prefs")
  542.   (dest "SYS:Prefs")
  543.   (all)
  544.   (confirm)
  545. )
  546.  
  547. ; **************************************************************************
  548. ; Ask for Packersupport
  549.  
  550. (if (exists "PackerSupport")
  551.   (
  552.     (set #ask_ps (askbool (prompt #Msg_PackerSupport) (help @askbool-help) ) )
  553.  
  554.     (if (= #ask_ps TRUE)
  555.       (
  556.         (copyfiles
  557.           (prompt #Msg_InstallingLibs)
  558.           (help @copyfiles-help)
  559.           (source "PackerSupport/libs/svobjects")
  560.           (dest (tackon #svlibdir "svobjects"))
  561.           (pattern "#?")
  562.           (files)
  563.         )
  564.       )
  565.     )
  566.   )
  567. )
  568.  
  569. ; **************************************************************************
  570. ; Ask for SQOperators
  571.  
  572. (if (exists "SQ-Operators")
  573.   (
  574.     (set #ask_sq (askbool (prompt #Msg_SQOperators) (help @askbool-help) ) )
  575.  
  576.     (if (= #ask_sq TRUE)
  577.       (
  578.         (copyfiles
  579.           (prompt #Msg_CopyEnvConfig)
  580.           (help @copyfiles-help)
  581.           (source "SQ-Operators/envarc")
  582.           (dest "ENVARC:")
  583.           (all)
  584.         )
  585.         (copyfiles
  586.           (prompt #Msg_InstallingLibs)
  587.           (help @copyfiles-help)
  588.           (source "SQ-Operators/libs/svoperators")
  589.           (dest (tackon #svlibdir "svoperators"))
  590.           (pattern "#?")
  591.           (confirm)
  592.           (files)
  593.         )
  594.       )
  595.     )
  596.   )
  597. )
  598.  
  599. ; **************************************************************************
  600. ; EOF ;-)
  601.  
  602. (exit #Msg_Ready)
  603.